# Table A1

rm(list=ls(all=TRUE))

library("stargazer")

#### Datasets ####
setwd("/Users/sebastian/Dropbox/The politics of interruptions - JOP RR/Replication Files/Data Rep")
load("sum_stats_rep.Rdata") 

#### Summary Statistics Full ####

setwd("/Users/sebastian/Dropbox/The politics of interruptions - JOP RR/Replication Files/Table")

stargazer(sum_stats, type = "latex",style = "ajps", out = "tableA1.tex",omit.summary.stat = c("p25", "p75"),
          covariate.labels = c("Woman","Ideological Extremism","Committee Chair",
                               "Seniority","Same Party as Leg. Pres.",
                               "Election Year", "Length of Speech",
                               "Mean Length of MC Speech", "Negative Language (Speech)", "Topic: Women (Speech)",
                               "Interruptions (pooled)","Procedural Interruptions", "Aggressive Interruptions"))


